library(ggplot2)

dfactin<-read.csv("1L2_actin.csv")

#create line plot
ggplot(dfactin, aes(x=actin, y=Mean_RelativeActivity)) +
  geom_point(size=2)+
  geom_line(size=0.8)+
  geom_errorbar(data = dfactin, aes(ymin=Mean_RelativeActivity-StDev, ymax=Mean_RelativeActivity+StDev), width=0.01)+scale_y_continuous(limits= c(0,100))+
  theme_minimal() +
  labs(
    title = "",
    x = "[Actin] (mg/mL)",
    y = "Relative DNase activity (%)"
  )+
  theme(axis.text.x = element_text(size = 16), axis.text.y = element_text(size = 16), axis.title.y = element_text(size=20), axis.title.x = element_text(size=20), title = element_text(size = 16), legend.title = element_blank(), legend.text = element_text(size=16), plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"))

ggsave("actin.pdf", width = 17, height = 10, units = "cm")